﻿Public Class Articulo_Compra
    Inherits DSEA.Articulo_CompraDataTable

    Public Sub Añade_Articulo(ByVal intArticulo As Int32, ByVal Tipo_Articulo As DSEA.Tipo_Articulo)
        Dim DR As DSEA.Articulo_CompraRow = Me.NewArticulo_CompraRow

        DR.Articulo = intArticulo
        DR.Tipo = Tipo_Articulo
        Me.AddArticulo_CompraRow(DR)
    End Sub

    Public Sub Añade_Gasto_Cocina()
        Añade_Articulo(10, DSEA.Tipo_Venta_Articulo.Gasto_Cocina)
    End Sub
End Class
